[ CnUnix ] in KIDS 글 쓴 이(By): yamang (*홀로서기*) 날 짜 (Date): 2000년 12월 14일 목요일 오전 07시 13분 53초 제 목(Title): 헥사나 옥탈코드 보는 툴 바이너리 화일의 헥사나 옥탈코드를 보고 싶은데 이거 보는 툴이 머가 있을까요. strings라는 툴은 바이너리에 텍스트 부분만 보여주는 거 맞나요?? [ CnUnix ] in KIDS 글 쓴 이(By): ahsarang (.아.사.랑.) 날 짜 (Date): 2000년 12월 14일 목요일 오전 08시 19분 33초 제 목(Title): Re: 헥사나 옥탈코드 보는 툴 od [ CnUnix ] in KIDS 글 쓴 이(By): terzeron (microkid) 날 짜 (Date): 2000년 12월 14일 목요일 오전 11시 08분 29초 제 목(Title): Re: 헥사나 옥탈코드 보는 툴 헥사 코드라면 Perl 책에 나오는 xdump 코드를 사용하는 것도 괜찮답니다. 그러면 왼쪽에는 offset, 중앙에는 헥사코드, 우편에는 아스키 문자가 출력되거든요. 이런 포맷이면 어디선가 많이 본 거죠? 00000080 20747265 652e0a23 20c0cc20 bdbac5a9 tree..# .. …. 00000090 b8b3c6ae b4c220c7 f6c0e720 b5f0b7ba …… …. …. 000000a0 c5e4b8ae bacec5cd 20726563 75727369 …….. recursi 000000b0 7665c7cf b0d4206d 7033c6c4 c0cfc0bb ve…. mp3…… 000000c0 20c3a3be c6bcad20 0a2320b1 d7b0cdc0 …… .# ….. #!/usr/bin/perl # # Usage: xdump [file] # # Use the file they specified, if specified open(STDIN, $ARGV[0]) || die “Can’t open $argv[0]: $!\n” if $ARGV[0]; # Do it optimally as long as we can read 16 bytes at a time while (($len = read(STDIN,$data,16)) == 16) { # hex code to hexadecimal number, N: a long in “network” order. @array = unpack(‘N4’, $data); # invert non-visible char to ‘.’ $data =~ tr/\0-\37\177-\377/./; printf “%8.8lx %8.8lx %8.8lx %8.8lx %8.8lx %s\n”, $offset, @array, $data; $offset += 16; } # Now finish up the smaller end than 16 bytes, a byte at a time if ($len) { @array = unpack(‘C*’, $data); # C: an unsigned char value; $data =~ y/\0-\37\177-\377/./; # y is a synonym of tr. for (@array) { $_ = sprintf(‘%2.2x’, $_); } push(@array, ‘ ‘) while $len++ < 16; # fill right margin with ' ' $data =~ s/[^ -~]/./g; printf "%8.8lx ", $offset; printf "%s%s%s%s %s%s%s%s %s%s%s%s %s%s%s%s %s\n", @array, $data; }